    

                           
       

      fscommand      bascic commands    fscommand       combo 
    Command   test
     Argments   "   "   
  

     swf   file  Export Movie         vb_with_flash

         components   project   ctrl + t
  shokwave flash

  shock wave player     



Private Sub Form_Load()
ShockwaveFlash1.Movie = APP.PATH & "\vb_with_flash.swf"
End Sub

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case Trim(command)
    Case "test"
      Select Case Trim(args)
        Case "   "
        Form1.Caption = "    "
        Case "       "
        Form1.Caption = "     "
        End Select
        MsgBox command & vbCrLf & args
    Case Else
    Exit Sub
End Select
End Sub


       